home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ADV350.ZIP / pspeak.for < prev    next >
Text File  |  1990-11-12  |  721b  |  27 lines
  1.       SUBROUTINE PSPEAK(MSG,SKIP)
  2.       
  3. C  FIND THE SKIP+1ST MESSAGE FROM MSG AND PRINT IT.  MSG SHOULD BE THE INDEX OF
  4. C  THE INVENTORY MESSAGE FOR OBJECT.  (INVEN+N+1 MESSAGE IS PROP=N MESSAGE).
  5.  
  6.       IMPLICIT INTEGER*4 (A-Z)
  7. C     INTEGER*2 RTEXT,PTEXT,ASCVAR
  8.       COMMON /TXTCOM/ RTEXT,LINES,ASCVAR
  9.       COMMON /PTXCOM/ PTEXT
  10.       DIMENSION RTEXT(205),LINES(18),PTEXT(100)
  11.       
  12.       M=PTEXT(MSG)
  13.       IF(SKIP.LT.0) GOTO 9
  14.       ASCVAR=M
  15.       DO 3 I=1,SKIP+1
  16.     1 READ(2,REC=ASCVAR) LOC,LINES
  17.       OLDLOC=LOC
  18.       ASCVAR=ASCVAR+1
  19.       M=ASCVAR
  20.       READ(2,REC=M) LOC,LINES
  21.       ASCVAR=M
  22.       IF(LOC.EQ.OLDLOC) GOTO 1
  23.     3 CONTINUE
  24.     9 CALL SPEAK(M)
  25.       RETURN
  26.       END
  27.